home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed22.d64 / take away island (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  4KB  |  184 lines
  1. 1 PRINT"[147]":POKE53281,0:POKE53280,0:POKE53272,23
  2. 2 PRINTTAB(11)"[158] [212][193][203][197] [193][215][193][217] [201][211][204][193][206][196] [146]"
  3. 3 PRINTTAB(15)"CREATED BY"
  4. 4 PRINTTAB(15)"[202]EFFREYS10"
  5. 5 PRINTTAB(15)"[198]EB. 1986"
  6. 7 PRINTTAB(4)"[154][208]RESS [211][208][193][195][197][160][194][193][210] FOR INSTRUCTIONS[158]"
  7. 8 GETB$:IFB$=""THEN8
  8. 10 PRINT"[147]"
  9. 20 PRINT"[217]OU ARE ON A DESERTED ISLAND."
  10. 30 PRINT"[193] HELICOPTER HAS COME TO RESCUE YOU."
  11. 40 PRINT"[217]OU MUST CLIMB STAIRS TO THE            HELICOPTER."
  12. 50 PRINT"[217]OU DO THIS BY SOLVING PROBLEMS."
  13. 60 PRINT"[193] CORRECT ANSWER WILL MOVE YOU UP ONE."
  14. 70 PRINT"[193] WRONG ANSWER WILL MOVE YOU DOWN ONE."
  15. 80 PRINT"[201]F YOU REACH THE TOP, THE HELICOPTER    WILL FLY YOU HOME."
  16. 90 PRINT"[201]F YOU FALL OFF THE BOTTOM STEP, THE"
  17. 100 PRINT"HELICOPTER WILL LEAVE WITHOUT YOU"
  18. 110 PRINTTAB(13)"[199][207][207][196] [204][213][195][203]!"
  19. 120 PRINTTAB(8)"[154][208]RESS [211][208][193][195][197][160][194][193][210] TO BEGIN"
  20. 130 GETA$:IFA$=""THEN130
  21. 150 PRINT"[147]"
  22. 155 PRINTTAB(11)"[207]NE MOMENT PLEASE."
  23. 160 POKE53269,0:POKE2040,192
  24. 170 FORN=0TO62
  25. 180 POKE53271,1:POKE53277,1
  26. 190 READQ
  27. 200 POKE12288+N,Q:NEXT
  28. 205 POKE53248,200:POKE53249,208
  29. 210 REM
  30. 290 REM
  31. 300 POKE53269,0:POKE2041,196
  32. 305 POKE53288,1
  33. 310 FORN=0TO62
  34. 320 POKE53271,3:POKE53277,3
  35. 330 READQ
  36. 340 POKE12544+N,Q:NEXT
  37. 345 POKE53250,248:POKE53251,208
  38. 350 REM
  39. 430 REM
  40. 440 POKE53269,0:POKE2042,200
  41. 445 POKE53289,4
  42. 450 FORN=0TO62
  43. 460 POKE53271,7:POKE53277,7
  44. 470 READQ
  45. 480 POKE12800+N,Q:NEXT
  46. 490 POKE53252,249:POKE53253,176
  47. 500 REM
  48. 510 POKE53269,0:POKE2043,204
  49. 520 POKE53290,5
  50. 530 FORN=0TO62
  51. 540 POKE53271,15:POKE53277,15
  52. 550 READQ
  53. 560 POKE13056+N,Q:NEXT
  54. 570 POKE53254,200:POKE53255,206
  55. 575 POKE53269,15
  56. 580 PRINT"[147]"
  57. 590 S=1
  58. 600 P=25
  59. 602 PRINT"[153][147]            [212][193][203][197][160][193][215][193][217][160][201][211][204][193][206][196] [146]"
  60. 603 GETA$
  61. 604 PRINT"    [208]RESS 1 FOR ONE DIGIT NUMBERS."
  62. 606 PRINT"          OR"
  63. 608 PRINT"          2 FOR TWO DIGIT NUMBERS[159]"
  64. 612 GETA$
  65. 614 IFA$="1"THENW=1:GOTO620
  66. 616 IFA$="2"THENW=2:GOTO620
  67. 618 GOTO612
  68. 620 PRINT"[147]            [212][193][203][197] [193][215][193][217][160][201][211][204][193][206][196] [146]"
  69. 625 IFW=2THEN642
  70. 630 A=INT(RND(1)*6)+3
  71. 640 B=INT(RND(0)*A)
  72. 641 IFW=1THEN670
  73. 642 A=INT(RND(1)*99)
  74. 643 IFA<10THEN642
  75. 644 B=INT(RND(0)*A)
  76. 645 REM IFA$="1"THENW=1:GOTO620
  77. 646 IFB<10THEN644
  78. 670 PRINT"          [215]HAT IS"A"-"B
  79. 710 INPUT"[145]";C
  80. 720 IFC=A-BTHENGOTO760
  81. 730 PRINT"[150]                [206]O!          "A-B"[158]":FORP=1TO2000:NEXT
  82. 750 S=S-1:GOTO770
  83. 760 S=S+1
  84. 765 FORP=1TO350:NEXT
  85. 770 IFS=0THEN880
  86. 780 IFS=1THEN890
  87. 790 IFS=2THEN900
  88. 800 IFS=3THEN910
  89. 810 IFS=4THEN920
  90. 820 IFS=5THEN930
  91. 830 IFS=6THEN940
  92. 840 IFS=7THEN950
  93. 850 IFS=8THEN960
  94. 860 IFS=9THEN970
  95. 870 IFS=10THEN980
  96. 880 POKE53254,190:POKE53255,210
  97. 885 GOTO1260
  98. 890 POKE53254,200:POKE53255,206
  99. 895 GOTO620
  100. 900 POKE53254,204:POKE53255,202
  101. 905 GOTO620
  102. 910 POKE53254,209:POKE53255,198
  103. 915 GOTO620
  104. 920 POKE53254,213:POKE53255,194
  105. 925 GOTO620
  106. 930 POKE53254,217:POKE53255,191
  107. 935 GOTO620
  108. 940 POKE53254,221:POKE53255,188
  109. 945 GOTO620
  110. 950 POKE53254,225:POKE53255,183
  111. 955 GOTO620
  112. 960 POKE53254,229:POKE53255,179
  113. 965 GOTO620
  114. 970 POKE53254,232:POKE53255,174
  115. 975 GOTO620
  116. 980 POKE53254,239:POKE53255,171
  117. 985 GOTO1245
  118. 990 REM
  119. 1000 PRINT"[147]     [217]OU HAVE A CHOICE:
  120. 1010 [153]"     (null)RESS  (null) WAIT TO PLAY AGAIN
  121. 1020 PRINT"     [208]RESS  [205] [146] TO RETURN TO DISK MENU
  122. 1030 [161]R$:[139]R$[179][177]"P"[175]R$[179][177]"M"[167]1030
  123. 1040 [139]R$[178]"P"[167][140]:[137]1955
  124. 1050 [140]
  125. 1060 [153]"LOAD (null)ETURNING TO THE DISK MENU"
  126. 1070 [147]"MENU",8
  127. 1080 [138]
  128. 1090 [128]
  129. 1180 [143]
  130. 1200 [142]
  131. 1210 [143]
  132. 1220 [151]782,X:[151]781,Y
  133. 1240 [142]
  134. 1245 [151]53269,7
  135. 1260 C[178]249:D[178]170:E[178]53252:F[178]53253
  136. 1270 [151]E,C:[151]F,D
  137. 1280 D[178]D[171]5
  138. 1290 [139]D[178]100[167]1310
  139. 1295 [129]P[178]1[164]50:[130]
  140. 1300 [137]1270
  141. 1310 [151]E,C:[151]F,D
  142. 1320 C[178]C[171]5
  143. 1330 [139]C[179]5[167]1925
  144. 1340 [137]1310
  145. 1925 [139]S[178]10[167][137]1940
  146. 1930 [151]53269,11
  147. 1935 [139]S[178]0[167][137]1950
  148. 1940 [151]53269,3
  149. 1950 [137]1000
  150. 1955 [129]R[178]1[164]2000:[130]
  151. 1960 [151]53252,249:[151]53253,176
  152. 1970 [151]53254,200:[151]53255,206
  153. 1980 [151]53269,15
  154. 1990 [137]590
  155. 2000 [131]0,0,0,0,0,0,0,0,63
  156. 2001 [131]0,0,63,0,0,255,0,0,255
  157. 2002 [131]0,3,255,0,3,255,0,15,255
  158. 2003 [131]0,15,255,0,63,255,0,63,255
  159. 2004 [131]0,255,255,0,255,255,3,255,255
  160. 2005 [131]3,255,255,15,255,255,15,255,255
  161. 2006 [131]63,255,255,63,255,255,255,255,255
  162. 2007 [131]0,0,0,0,0,0,255,255,0
  163. 2008 [131]255,255,0,255,255,0,255,255,0
  164. 2009 [131]255,255,0,255,255,0,255,255,0
  165. 2010 [131]255,255,0,255,255,0,255,255,0
  166. 2011 [131]255,255,0,255,255,0,255,255,0
  167. 2012 [131]255,255,0,255,255,0,255,255,0
  168. 2013 [131]255,255,0,255,255,0,255,255,0
  169. 2014 [131]0,0,0,0,0,0,0,0,0
  170. 2015 [131]0,0,0,0,0,0,0,0,0
  171. 2016 [131]255,191,224,0,64,0,0,64,1
  172. 2017 [131]3,240,2,15,255,254,17,255,4
  173. 2018 [131]33,254,8,97,252,0,127,248,0
  174. 2019 [131]63,240,0,8,32,0,31,240,0
  175. 2020 [131]0,0,0,0,0,0,0,0,0
  176. 2021 [131]0,0,0,0,0,0,0,0,0
  177. 2022 [131]0,0,0,0,0,0,0,0,0
  178. 2023 [131]0,0,0,0,0,0,0,0,0
  179. 2024 [131]192,0,0,192,0,0,128,0,0
  180. 2025 [131]192,0,0,192,0,0,192,0,0
  181. 2026 [131]128,0,0,128,0,0,128,0,0
  182. 2027 [131]128,0,0,128,0,0,192,0,0
  183. 3000 [143] MOD WHC 91:03:13
  184.